unit uCxtSkin;

interface

uses
  WinSkinData;

var
  AppSkin: TSkinData;

implementation

uses
  Classes;

var
  SkinData: TResourceStream;
  
initialization
  AppSkin := TSkinData.Create(nil);
  AppSkin.SkinFormtype := sfMainform;
  skinData := TResourceStream.Create(HInstance, 'appskin', 'skin');
  try
    AppSkin.LoadFromStream(skinData);
  finally
    skinData.Free;
  end;

finalization
  AppSkin.Free;  
  
end.
